home *** CD-ROM | disk | FTP | other *** search
/ Mogel-CD / Mogel CD.iso / daten / amiga / install / b / boulderdash.lha / boulderdash / Install_BoulderDash < prev    next >
Encoding:
Text File  |  1997-10-29  |  1.7 KB  |  76 lines
  1. (set GameDir "BoulderKit")
  2.  
  3. ;try to figure out a place where the user usually installs his games
  4. (if (exists "Games:" (noreq) )
  5.     (set @default-dest "Games:")
  6.     (if (exists "SYS:Games" (noreq) )
  7.         (set @default-dest "SYS:Games")
  8.         (if (exists "Work:Games" (noreq) )
  9.             (set @default-dest "Work:Games")
  10.             (if (exists "JEUX:" (noreq) )
  11.                (set @default-dest "JEUX:")
  12.                (set @default-dest "SYS:")
  13.             )
  14.         )
  15.     )
  16. )
  17.  
  18. ;ask the user to select a directory to install the game into
  19. (set default-dest
  20.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  21.                              "A drawer called " GameDir " will be created.")
  22.                      (help @askdir-help)
  23.                      (default @default-dest)
  24.                      (newpath)
  25.              )
  26.      GameDir
  27.      )
  28. )
  29. (set @default-dest default-dest)
  30.  
  31. ;create the selected directory
  32. (makedir @default-dest
  33.          (infos)
  34. )
  35.  
  36. (askdisk
  37.     (prompt    "\n\n\n\n\n\nPlease insert Boulder Dash disk in any drive")
  38.     (dest        "kitold")
  39.     (help        "Insert disk in any floppy drive\nor you'll wait for a while!")
  40. )
  41.  
  42. (copyfiles (source "kitold:")
  43.            (dest @default-dest)
  44.            (all)
  45. )
  46.  
  47. ;copy all extra files to this directory
  48.  
  49. (copyfiles (source "setchiprev")
  50.            (dest @default-dest)
  51. )
  52.  
  53. (copyfiles (source "tude")
  54.            (dest @default-dest)
  55. )
  56.  
  57. (copyfiles (source "BoulderDash")
  58.            (dest @default-dest)
  59. )
  60.  
  61. (copyfiles (source "kit")
  62.            (dest (tackon @default-dest "d/"))
  63. )
  64.  
  65. (copyfiles (source "BoulderDash.icon")
  66.            (dest @default-dest)
  67.        (newname "BoulderDash.info")
  68. )
  69.  
  70.  
  71. ; cleanup
  72.  
  73. (delete (tackon @default-dest "s/startup-sequence"))
  74. (delete (tackon @default-dest "s"))
  75.  
  76.